home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / cardga1g / form1.frm next >
Text File  |  1998-01-15  |  2KB  |  58 lines
  1. VERSION 4.00
  2. Begin VB.Form Form1 
  3.    BorderStyle     =   1  'Fixed Single
  4.    Caption         =   "Form1"
  5.    ClientHeight    =   3780
  6.    ClientLeft      =   2055
  7.    ClientTop       =   2070
  8.    ClientWidth     =   6900
  9.    Height          =   4185
  10.    Left            =   1995
  11.    LinkTopic       =   "Form1"
  12.    MaxButton       =   0   'False
  13.    MinButton       =   0   'False
  14.    ScaleHeight     =   3780
  15.    ScaleWidth      =   6900
  16.    Top             =   1725
  17.    Width           =   7020
  18.    Begin VB.FileListBox File1 
  19.       Height          =   2985
  20.       Left            =   120
  21.       Pattern         =   "*.bmp"
  22.       TabIndex        =   1
  23.       Top             =   720
  24.       Width           =   1575
  25.    End
  26.    Begin VB.CommandButton Command1 
  27.       Caption         =   "&Set Wallpaper"
  28.       Height          =   495
  29.       Left            =   240
  30.       TabIndex        =   0
  31.       Top             =   120
  32.       Width           =   1215
  33.    End
  34.    Begin VB.Image Image1 
  35.       Height          =   3615
  36.       Left            =   1920
  37.       Stretch         =   -1  'True
  38.       Top             =   120
  39.       Width           =   4935
  40.    End
  41. End
  42. Attribute VB_Name = "Form1"
  43. Attribute VB_Creatable = False
  44. Attribute VB_Exposed = False
  45.  
  46. Private Sub Command1_Click()
  47.     Call ChangeWallpaper(File1.filename)
  48. End Sub
  49.  
  50. Private Sub File1_Click()
  51.     A = File1.Path & "\" & File1.filename
  52.     Image1.Picture = LoadPicture(A)
  53. End Sub
  54.  
  55. Private Sub Form_Load()
  56.     File1.Path = "C:\Windows"
  57. End Sub
  58.